home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / ERRINS.ZIP;1 / ERRINSP.PRG < prev    next >
Encoding:
Text File  |  1992-04-01  |  1.2 KB  |  57 lines
  1. /***
  2. *
  3. *  ErrInsp.prg
  4. *    The Error Inspector, a diagnostic error handler.
  5. *
  6. *  Copyright (c) 1992 Nantucket Corp.  All rights reserved
  7. *
  8. */
  9.  
  10. // default path for the error information database...if the Description 
  11. // option is not available on the View menu, this manifest constant should 
  12. // be changed to the path name where ERRINFO.DBF and ERRINFO.NTX reside.
  13. // 
  14. #define EI_ERRINFO_PATH  "\ERRINSP\"
  15.  
  16. /***
  17. *
  18. *    InfoPath()
  19. *
  20. *    Returns path name where ERRINFO.DBF and ERRINFO.NTX reside. 
  21. *
  22. */
  23. FUNCTION InfoPath()
  24.  
  25.     RETURN ( EI_ERRINFO_PATH )
  26.  
  27. /***
  28. *
  29. *    ErrorSys()
  30. *
  31. *    Automatically executes at startup. This default error block points
  32. *    the way to the active error handler.
  33. *
  34. */
  35. PROCEDURE ErrorSys()
  36.  
  37.     ERRORBLOCK( {|oErr| ErrInspector( oErr ) } )
  38.  
  39.     RETURN
  40.  
  41. /***
  42. *
  43. *    ShellBlock() --> bShellBlock
  44. *
  45. *    Returns code block to be executed whenever the "DOS Shell" option is
  46. *  selected from the Error Inspector menu. The Error Inspector simply
  47. *  issues a RUN command by default; however, the code block returned
  48. *  by this function may be modified to reference the DOS shell command
  49. *  of your choice.
  50. *
  51. */
  52. FUNCTION ShellBlock()
  53.  
  54.     RETURN ( {|| DefShell() } )
  55.  
  56.  
  57.